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MACHINE LANGUAGE AND ASSEMBLY LANGUAGE: 

PROGRAMMING MADE AS SIMPLE AS BASIC 

(continued from the September issue) 

In last month's issue, we began our exploration of the world of machine 
and assembly language with a review of memory functions, the hardware architec- 
ture of the TRS-80, addressing and the instruction set our system will use. Now 
we will continue our study of this topic with a look at how to use our instruc- 
tions to accomplish some tasks. The specific tasks we will examine involve 
making use of the I/O service routines in the BASIC ROM available to an assembly 
language application program. 

First, at location address 164.16 in memory, there is a DA field containing 
the address within the screen memory area of the cursor character on the display 
screen. The address value in the field may range from 15360 to 16383. Once the 
address value has been stored in the DA field, you will want to turn the cursor 
character on. This can be done by the following routine: 

PUSH DE 
PUSH II 
LD A, 14- 
CALL 9,51 
POP II 
POP DE 

To turn the cursor off at its current location, use the following routine: 

PUSH DE 
PUSH II 
LD A, 15 
CALL 9,51 
POP II 
POP DE 

To display a character of text at the current cursor location on the screen, 
place the character of text in the A register and perform the following routine: 
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PUSH DE 
PUSH II 
CALL 9,51 
POP II 

POP DE 

When as assembly language program wishes to obtain input data from the 
TRS-80 keyboard, it must scan the keyboard for a struck key, receive the 
representative character and then repeat that process for each character of text 
expected or until a termination character , such as a return key character, is 
received. As each character is received in the A register, it must be stored in 
an area of memory reserved in your program for keyboard input* If you are 
receiving a field of numeric data, you should remember that the numeric text as 
stored in your memory is in string form* If you wish to perform any arithmetic 
operations on that data, you will need to write an assembly language routine to 
convert the numeric string into an 8 or 16 bit machine language number format 
first. Even then you will still have to take signs and decimal points into 
consideration during any arithmetic manipulation of the converted numeric data. 
The following is an example of ho\>r to scan the keyboard until a character Is 
received in the A register: 

TAG AGN 
PUSH DE 
PUSH II 
CALL 9,43 
OR A 
JR 5, AGN 
POP II 
POP DE 

An assembly language program might also use data from or write data to 
cassette tape, Reading a record from a cassette is a four step operations First 
you might define the cassette drives 

LP A 9 
CALL 9,530 

Then you must find the next sync byte on the tape: 

CALL 9,662 

Then you must read the record into memory one byte at a time. To read a 100 
character record into an area in memory labeled RECA: 



LD 


B,W 


LP! 


HL,ARECA 


TAG 


LBLA 


PUSH 


BC 


PUSH 


HL 


CALL 9,565 


POP 


HL 


POP 


BC 


LD 


M,A 


INCX 


HL 


LD 


A,B 


3ER 1980 



PAGE 2 



DEC 


A 


LD 


B,A 


JR 


5, LBLA 


DS 


100,RECA 


DA 


REGA,AREGA 



Finally, you must turn the cassette drive off: 
GALL 9,504 

Likewise, to write a record to the cassette tape involves four similar 
steps* First! you must define the cassette drive* Then, you must write a leader 
and sync byte; 

CALL 9,6^7 

Then, you must write your record to tape one byte at a time. To write a 100 
byte record stored in a memory area labeled RECA to tape: 



LD 


B,100 


LDX 


HL,ARECA 


TAG 


LBLA 


PUSH 


BC 


PUSH 


HL 


LD 


A,M 


CALL 


9,612 


POP 


HL 


POP 


BG 


LD 


A,B 


INCX 


HL 


DEC 


A 


LD 


B,A 


JR 


5, LBLA 


DS 


100,RECA 


DA 


REGA,AREGA 


Fina" 


!1y. you mui 



Finally, you must turn off the cassette drive. 

If you have a stand-alone (not called by a user BASIC program) assembly 
language program, you should end your program by jumping to the BASIC command 
level ready state: 

JP 9,6681 

For those assembly language routines which are called by user written BASIC 
programs, the following conventions should be observed: To call an assembly 
language routine from BASIC, you must first identify the location of the routine 
and store it in a special area of memory at locations 16526 and 16527. For 
example, if your routine starts at location 32000, you convert this address into 
its 2 byte 16 bit formats In this form, byte 1 of the address would contain the 
value 208 and byte 2 the value # These 2 bytes must be stored in reverse order 
because they represent an address® This can be done by the following: 

10 POKE 16$26,0:POKE 16527,200 

You then call the routine using the USR commands If a signed 16 bit value 
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is to be passed to your routine as an argument^ it can be done through a numeric 
literal or field name argument expressed with the USR command. If no argument is 
to be passed, a dummy argument of zero is expressed with the USR command. The 
following is an example of a USR call with an argument contained in a field 
named N: 

15 N=1295 
20 A=USR(N) 

If jour routine is expecting an argument, the following instruction will 
retrieve the value and place it in the HL register pair: 

CALL 9 , 2687 

Remember, this value is a signed 16 bit value which means the possible 
values range from -32768 to +32767 because the first bit (leftmost, bit 1) 
represents a sign (a 1 bit represents a negative) rather than a numeric value 
position* At the end of your routine execution^ if no argument value is being 
passed back to your BASIC program^ you should end your routine with a RET 
instruction. If you are returning a signed 16 bit value (which would be placed 
in the A field of line 20 in our example), load the value into the HL register 
pair and execute a JP 9,2714 instruction at the end of your routine. 

All assembly language programs and subroutines should begin by storing the 
current SP register value in a save area in your program and a new SP register 
value loaded based on a large enough stack area in your program to handle your 
program 1 s needs# The saved SP register value must be re-loaded before you end 
your program or routine , 

low that we have a fundamental understanding of assembly language^ we can 
discuss how to input and prepare a program or routine for use on your TRS-80. 
This process is divided into three parts: a program editor for inputting and 
modifying assembly language programs, a compiler for translating assembly 
language programs into machine language, and a relocating loader for loading a 
machine language program into a reserved section of memory and resolving its 
address usage to match the address available within its reserved section of 
memory. 

Once an assembly language program has been inputted through the program 
editor, it is stored on cassette tape for future modification or compilation* 
Should you wish to modify an exiting program^ the editor will first read your 
program back into its buffer, accept your modifications and then rewrite your 
program back to tape« Here is the BASIC program that will serve as our editor: 

5 INPUT "HOW MUCH STRING SPACE SHALL I CLEAR" ; C: CLEAR C 
10 IlffUT "ARE YOU 1) CREATING OR 2) MODIFYING A PROGRAM"; A 
15 INPUT "MAXIMUM NUMBER OF INSTRUCTIONS IN IOUR PROGRAM" ;B 

20 DIM K$(B):I=0 

25 FOR 1=1 TO B:K| (l)=" ":IEXII 

30 IF A=2 THEN 200 

35 PRINT "ENTER IOUR PROGRAM ONE INSTRUCTION AT A TIME" 

IF N=B THEN PRINT "BUFFER FULL": GOTO 60 

IS INPUT MO 

50 IF M$=«/* n THEN 60 

55 !NH+1:K$(H)=M$:G0T0 4 
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60 PRINT "READY GASSETTE TO SAVE YOUR PROGRAM" 

65 FOR 1=1 TO N 

75 PRINT #-1,CHR$(34)+K$(I)+CHR$(34) 

80 NEXT I: PRINT #-1,CHR$(34)+ n /* n +CHR$(34) 

85 INPUT "DO YOU WISH A PROGRAM LISTING" ;M# 

90 IF M$.NE. M YES n THEN END 

95 FOR 1=1 TO N:LPRIHT I|I#(I) : PRINT I;K$(l) :NEXT I: END " 

200 PRINT "READY GASSETTE TO LOAD YOUR PROGRAM" 

205 INPUT #-1,M| 

210 IF M$=«/* n THEN 220 

215 N=N+1;K$(1)=M$:IF N=B THEN PRINT "BUFFER FULL": GOTO 220 ELSE 205 

220 PRINT «L FOR LIST, I FOR INSERT, C FOR CHANGE, E TO FINISH" 

225 INPUT "WHAT FDNCTIOW«;M$:I? M|=«E" THEN 60 

230 IF M#="I» THEM 300 

235 IF 1#="C" THEN A00 

24.0 IF M$.NE.»L" THEN 225 

24.5 INPUT "ENTER FROM, TO LINE #S n jR,T 

250 IF R.GT.T OR R.LT.1 OR R.GT.H OR I.GI.N THEN 24-5 

255 FOR I=R TO T: PRINT I;K$(I):NEXT I: GOTO 220 

300 INPUT "PLACE INSERTS AFTER LINE #«;R:IF R.LT.1 OR R.GT.N THEN 300 

305 INPUT "NUl'lBER OF INSERTED LINES" ;T: IF T.LT.1 THEN 305 

310 IF NfT.GT.B THEN PRINT "HOT ENOUGH ROOM": GOTO 300 

315 S=H:FOR 1=1 TO 1-RtE '3+T)=K$(S):&=S-1:NEXT I:N=N+T 

320 PRINT "ENTER INSERTED LINES ONE INSTRUCTION AT A TIME" 

325 FOR 1=1 TO T: INPUT M$:K$(R+I)=M$:NEXT I: GOTO 220 

4.00 INPUT "LINE # BEING CHANGED" ;R: IF R.GT.N OR R.LT.1 THEN 1400 

#5 PRINT "OLD LINE"jK|(R) 

410 INPUT "NEW LINE« S |M#sK#(R)=M$i GOTO 220 

Note that when initially creating a program^ the last line must be a ««/*". 
Each line of instruction as entered or changed with this editor would consist 
of an operation code followed by a blank followed by up to two operands (if 
required) separated by only a comma* Naturally, the blank and comma would not 
be needed for an operation code requiring no operands. 

If you wish to have comments in your program for documentation purposes, 
you may include them by placing them on separate lines starting with a ";" 
character. These comment lines will be Ignored by the compiler. 

If/hen modifying a program, you may list portions of your program on the 
screen by specifying starting and ending line numbers, insert additional lines 
of instructions iamediatly following a specified line number or just replace a 
current line of instruction with a new one. As you can see, you can also obtain 
a listing of your program on your line printer. 

When using this editor, you must have some idea how big your program will 
be in terms of lines of instructions. This information must be used to determine 
how much string space to clear since the editor's program buffer resides in 
BASIC'S string space and must hold the whole program at one time. Normally, 20 
to 30 characters per line Is ample. 

The compiler program will read your assembly language program tape and 
translate it into a machine language program which will be outputted to tape for 
further processing and execution by the relocating loader program. Optionally, 
a line printer listing of the compilation nay be obtained. Here is the BASIC 
program that will serve as our assembly language compilers 
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10 INPUT "HOW MUCH STRING SPACE SHALL I CLEAR" ; C: CLEAR C 

15 INPUT "MAXIMUM NUMBER Of INSTRUCTIONS III IGUR PROGRAM" ;B 

20 INPUT "MAXIMUM # OF TAGS 11 TOUR PROGRAM"; A 

25 INPUT "MAXIMUM # Of BITES II fOUR MACHINE LANGUAGE PROGRAM" ;F 

2? ¥=¥-+10 



30 DIM If i 
35 G=(F/2) 

40 INPUT " 

45 INPUT I 
50 N=N+1j! 
55 FOR 1=0 
60 IDE I=g 
65 FOR I=# 
70 INPUT « 
75 PRINT " 
80 IP ZIgfc 
85 FUR 1=1 
87 ER§=" If 
90 IF LUUFI 
95 FUR Z6= 
100 NEXT Z 
105 OP#=MI 
110 FOR 27 
115 NEXT Z 
120 IlJrUil 
125 I2#=MI 
200 IF CP| 
205 IF 11 § 
20? LA#=X1 
210 IF 1=0 
215 FOR V= 



) t Hf (P) f Zf 8 (4) 

) :N=0:B=0:Q=0:fc=0:T=1 :EC=0 

3 TO READ FOUR ASSEMBLY PROGRAM" ;YB$ 

/*« THEN 55 

3 THEN PRUT "BUFFER FULL": GOTO 55 ELSE 45 

«:E£(I)=0:NEXT 1 
:NEXT I 

TO 2:I#(I,V)=0:IJEXT V:NEXT I 
OTTER LISTING"} 11$ 
IS CODE** *ASSFI1BLT TEXT*" 

HIT «*LOC*NB*MAGHINE CODE** * ASSEMBLY TEXT*" 
iZ%(2)=0; Z55(3)=0: Z%(^)=0:T9=T:M0=K$(I) : Z5=LBN(M|) 
« n :X2|==« ":NB=0 
PEN 9000 
)#(M# f Z6,l)=« « THEN 105 

200 

:Z6=Z6t1iIP Zo.GT.Z5 THEN 200 
!ID${M# f Z7 f l)= !l f " THEN 120 
,Z6):GOTO 200 
7);Z7=Z7+1:IF Z7.GT.Z5 THEM 200 

[ 230 

)TC 9000 

0=LA# AID E5&(V).GT.0 THEM ER$=» DUPLICATE LABEL": RET 



URI 
217 IF J$(V)=LA$ THEM 227 
220 NEXT ¥ 

225 P=P+liV=PsIF P.GT.A THEN M#==«IOO MARX LABELS" : RETURN 
227 J$( V) =LA|: FII( V) =1 : RETURN 
230 IF OP#»i«E»"ORG« THEN 245 

235 V=VAL(X1$):IF T+V.LT.0 OR T+V.GT.F THEN ffi$="INVALID ADDRESS" : GOTO 9000 
20 I=T+VsGOTO 9000 
245 IF OP|.IE, n DS" THEN 265 
250 V=VAL(X1$):IF V.LT.1 OR V.GT. 32767 OR T+V # GT.F THEN ER^=" INVALID ALLOCA 

TION«jGC«TO 9000 
255 IP I2#,NE. n « THEN LA|=12|:G0SUB 210 
260 IF ER§=« « THEN T=T+¥ 
262 GOTO 9000 

7'.. . P ". DO" THF1I 305 

270 IF LPTFT$(l1$ f l),IE s CM$(39) OR RIGHT$(X1$,1).HE.CHR$(39) THEN ER0="IHVA 

LID SYKTAX":GOTC 9000 
275 U=PIF1I(Z10)-2;IF VJ.LT.1 OR I+«,GI,P THEN FUI$=" INVALID SIZE"; GOTO 9000 
280 LAUp=liID$(lll5 f 2 f U) 

285 FOR V=l TO UjIF V.LT.5 T2PEN Zg(V)=ASC(MID$(LA$,V,1)) :NB=M&M 
290 H| ( V) =ASC ( MID| (LA$, V, 1 ) ) : NEXT V 

295 IF X2$.H3. n t! IHOI1 LA$=I20; GOSUB 210 

* * IF ERS>=" « TB01U T=T+ll 

12 GOTO 9000 
305 IF OP0,NE # "DB" THEN 350 
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310 W=LM(X1S);IF W.ME.8 THEM 1225 
315 V=128:ZAfo=0:FOR 1=1 TO W 

320 IF MID$(X1#,Y,1)=«1« THM ZA5&=ZA&-V: GOTO 330 
325 IF MIDt(X1$,Y,l) s NE # "0" THM ER$= n INVALID BIT": GOTO 9000 
33$ V=V/2:NEXT Y:Kf (T)=ZA%:Zfo(l)=ZAf :NB=1 
332 IF T+1.GT.F THEN ER|="END OF MEMORY" : GOTO 9000 
335 IF X2#.NE." » THEM LAfc=X2$: GOSUB 210 
340 IF ER|=» « THEN T=T+1 
345 GOTO 9000 

350 IF 0P$.NE."DW" THM 395 

355 V=VAL(X1$):IF V.LT.0 OR V.GT. 65535 THF2J 1225 
360 ZA%=DIT(V/265) :ZB5&=V-(ZAjg*256) 
370 IF T+2„GI*F THEN Mt=«EMD OF MEMORY": GOTO 9000 
375 NB=NB+1:Zfo(NB)=ZBfo:N&=N&l-1:Z|(NB)=ZAfo;Hfo(T)=ZBS:Hfo(T+l)=ZAf a 
380 IF X2|.NE*» " THEN LA§=X2§:G0SUB 210 
385 IF ER$=« " THM T=T+2 
390 GOTO 9000 

395 IF OP$.HE„"DN" THM 420 

00 V=VAL(X1#):IF V.LT.-128 OR V„GT.127 THM 1225 
405 IF V s LT.0 THM V=256-ABS(V) 
415 HB=1sZ$(1)=VsHS(T)=V;GOT0 332 
420 IF 0P$ # HE."DA" THEM 475 ELSE Y1=I 
425 IF VAL(X1$) a GT # THEN 355 ELSE GOSUB 430: GOTO 465 
430 IF P=0 THEN 445 

435 FOR V=1 TO P:IF J$(V)=X1$ THM 455 
440 NEXT V 

445 P=P+1:V=P:IF P.GT.A THEN ER$="T00 MANY LABELS" : RETURN 
450 J#(V)=X1$:Ef o (V)=0:I5=V 

455 Q=Q+1:IF Q.GT.G THM ER|=»I00 MANY RELOCATIONS": RETURN 
460 L%(Q,1)=Y1:L56(Q,2)=V:RKTURN 
465 IF mfj'IE." " THEN 9000 
470 V=Ef o (Y5):GCT0 360 
475 IF 0P$.NE.«DM" THM 490 

480 V=VAL(X1#):IF Y # LX.0 OR V.GT.255 THM 1225 
485 GOTO 415 

490 IF 0P$.NE.»RLG" THEN 600 
495 LA$=X1§: GOSUB 500: GOTO 575 
500 V=-1:V1=-1:W=LEN(LA$):IF W.LT.2 THM 530 
505 IF LEFT|(LA$,2)=«IX» THEN NB=NB+1 :Z%{NB) =221 : GOTO 520 
510 IF LEFT|(LA|,2)="IY" THM NB=NB+1 :Zf (NB) =253: GOTO 520 
515 ER$=" INVALID OPERAND" : RETURN 
520 V=6:IF W.GT.3 THEN 525 ELSE RETURN 
525 V1=VAL ( MID$(LA$, 4) ) : RETURN 
530 IF LA#="M» TIIEN V=6: RETURN 
535 IF LA^»A" THM V=7:RET0RN 
540 IF LA$="B" THM V=0: RETURN 
545 IF LA^»G» THEN V=1 : RETURN 
' 550 IF LA$="D» THEN V=2: RETURN 
555 IF LA$="E" THEN V=3: RETURN 
560 IF LA$="H" THM V=4: RETURN 
565 IF LA$="L» THM V=5: RETURN 
570 GOTO 515 
575 IF V=-1 THEN 9000 
577 NB=HB+ 1 : Z% ( MB) =203 : HB=NB+ 1 
580 IF V1 # GT„-1 THM Z%(NB)=V1:NB=NBH 
585 Z$(HB)=V 
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590 IF I+NB.GI.F THEN ER|=»EM) OF MEMORY" : GOTO 

595 FOR tf=1 TO MB:H55(T)=Z%(W):T=T+1:NEXT W:GOTO 

600 IF GP$ # NE."RR f! THEN 615 

6$5 LA$=X1$:GOSUB 500% IF V.GT.-1 THEN ¥=¥+24 

610 GOTO 575 

615 IF OP|»ME # "RRO" THEN 630 

620 LA$=X1$:GOSUB 500:IF V.GT.-1 THEN ¥=¥+8 

625 GOTO 575 

630 IF OP$.NE."SBC" THEN 660 

632 ¥=¥AL(X1$):IF V.GT.0 AND ¥.LI # 256 THEN NB=2:Z%(l)=222:Zf o (2)=¥:G0T0 590 

635 LA$b=X1$:GOSUB 500:W=152 

64.0 IF V=-1 THEN 9000 

64,5 V= V+ W : if B=NB+ 1 : Z% ( MB) = V 

650 IF V1.GT.~1 THEN NB=NB+1 :ZJS(NB)=V1 

655 GOTO 590 

660 IF OPf.NE."SBGX« THEN 705 

665 LA#=X1t:GGSUB 670 s GOTO 695 

670 IF LAf=«BC" THEN V=0: RETURN 

675 IF LA|="DE" THEN ¥=1 6 j RETURN 

680 IF LA#=»HL» THEN ¥=32: RETURN 

685 IF LA#=«SP" THEN ¥=48: RETURN 

690 V=-1:ER#=« INVALID OPERAND" : RETURN 

695 IP ¥=-1 THEN 9000 

700 NB=NB+ljZ^(lB)=237:NB=NBf1:Z$(NB)=¥+66:G0TG 590 

705 IF OP# s NE,"SGP" THEN 715 

710 NB=1:Z5£(1)=55:GOTO 590 

715 IF OPf.NE,"SET» THEN 735 ELSE WA=192 

720 W=VAL(X1$):IF W.LT.1 OR W.GT.8 THEN 1225 

725 LA#=X2|:GOSUB 500: IF V.GT.-1 THEN V=V+WA+(ABS(tf-8)*8) 

730 GOTO 575 

735 IF OP$.NE."SLA" THEN 750 

740 LA#=X1#sGOSUB 500: IF V.GT.-1 THEN ¥=¥+32 

745 GOTO 575 

750 IF OP#.NE # "SRA n THEN 765 

755 LA|=X1$:GOSUB 500: IF V.GT.-1 THEN ¥=¥+40 

760 GOTO 575 

765 IF OPf # NE.»SKL" THEN 780 

770 LA$=X1$:GOSUB 500: IF V.GT.-1 THEN ¥=¥+56 

775 GOTO 575 

780 IF OP$.NE.«SUB n THEN 795 

785 ¥=¥AL(Xlf)sIF W.GT.0 AND W.LT.256 THEN NB=2:Z? (1)=214:Z? (2)=W:GOTO 590 

790 LA$=X1$:GOSUB 500 :W= 144s GOTO 640 

795 IF OP$.NB.«XGR« THEN 810 

800 W=¥AL(X1$);IF tf.GT.0 AND W.LT.256 THEN NB=2:Z%(1) =238: Zf (2)=W: GOTO 590 

805 LA#=X1#:GOSUB 500: W=1 68 .♦ GO-TO 640 

810 IF OPf.NE."IN« THEN 825 ELSE ¥=219 

815 W=VAL(X1$):IF W.LT.0 OR W.GT.255 THEN 1225 

820 NB=2:Z%(1)=V:Z#(2)=W:G0TC 590 

825 IF CP$.NE."LBD" THEN 835 

830 NB=2:Z|(1)=237:Z$(2)=168|G0T0 590 

835 IF OP|.NE,"LDDR" THEN 845 

840 NB=2:ZJ5(1)=237:ZS5(2)=184:G0T0 590 

845 IF OP#,NE.«LDI» THEN 855 

850 NB=2;Zf o (l)=237:Z$(2)=l60:GOTO 590 

855 IF OP$.NE # »LBIR« THEN 865 

860 NB=2:ZJS(1)=237:Z56(2)=176:G0T0 590 

865 IP OP$.NE. n NEG n THEN 875 

870 NB=2:Zf o (l)=237:Zf o (2)=68:G0T0 590 
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875 IF OP#»IE,"IOP" THEN 885 

880 IB=l;Zf o (l)=0sGOTO 590 

885 IF OP$.NE,"OR« THEN 900 

890 ¥=¥AL(X1#)sIF W.GT.0 AND W.LT.256 THEN NB=2:Zf ( 1)=246:Z%(2)=W:G0T0 590 

895 LA$=X1$:G0SUB 500: W=l 76: GOTO 60 

900 IF OP| # NE # If OUT« THEN 910 

905 ¥=21 1s GOTO 815 

910 IF QP$,1E»"P0P« THEN 965 

915 LA$=X1$:GOSUB 920:0010 955 

920 IF LA#=«HAF n THEN ¥=241 ; RETURN 

925 IF LA«1h f, BC w THEN V=1 93: RETURN 

930 IF LA#= fl DE« THEN ¥=209: RETURN 

935 IF LA$= n HL" THEN ¥=225; RETURN 

940 IF LA|=«IX» THEM V=225:NB=NBH:Z%(NB)=221:RETURN 

945 IF LA#= W II« THE!i ¥=225sIB=IB+1sZf (NB)=253:RETURE 

950 ¥=-1;ER#=»II¥ALID OPERAND" : RETURN 

955 IF V=-1 THEN 9000 

9&0 NB=IB+liZ$(lB)=Y;GOTO 590 

965 IF OPf.IE„»PUSH" THEN 980 

970 LA#=X1$:GOSUB 920iIF V.GT.-1 THEN ¥=¥+4 

975 GOTO 955 

980 IF OPl.lE.npjES" THEM 985 ELSE WA=128:G0T0 720 

985 IF 0P# # 1E»"BL« THEM 1000 

990 LA|p=I1$:CX)SUB 500 J IF V.GT.-1 THEN V=V+16 

995 GOTO 575 

1000 IF OPl.ME.nilO" THEI 1055 

1005 LA#=X1$;G08UB 500s IF V=-1 THEN 9000 

1010 IF ¥=0 THEE ¥=4 

1015 IF V=1 THEM M=12 

1020 IF V=2 THEN ¥=20 

1025 IF V=3 THEE ¥=28 

1030 IF Y=E THEM ¥=36 

1035 IF ¥=5 THICK W=44 

1040 IF V=6 THEE W=52 

1042 IF ¥=7 THEE ¥=60 

1045 NB=MBf1:Z%(HB)=W:IF V1.GT.-1 THEN NB=N&H:2#(NB)=V1 

1050 GOTO 590 

1055 IF OP$,NE. M INGX" THEN 1085 

1057 IF X1#=»SP« THEN W=51:GOTO 1080 

106$ LA$=X1$:GOSUB 925: IF ¥=-1 THEN 9000 

1065 IF ¥=193 THEN \4=3 

1070 IF ¥=209 THEN ¥=19 

1075 IF ¥=225 THEN ¥=35 

1080 NB=NBH:Z%(HB)=W:GOTO 590 

1085 IF GP$.NE.«JP« THEN 1190 

1090 W=VAL(X1$):IF tf.LT.1 OR W.GT.9 THEN 1225 

1095 IF W=9 AND X2|= M M" THEE NB=1 :Z|(EB) =223: GOTO 590 

1100 IF W=9 MD X2$=«IX" THEN NB=2:Z$(1)=221 :Z%(2)=233:GOTQ 590 

1105 IF W=9 MD I2t="II» THEN NB=2:Z#(1)=253:Z5&(2)=233:G0T0 590 

1 110 IF W=1 THEE ¥=218 

1115 IF W=2 THEN ¥=210 

1120 IP M=3 THEE ¥=250 

1125 IF W=4 THEN ¥=242 

1130 IF M=5 THEN ¥=202 

1135 IF M=6 THEN ¥=194 

1140 IF W=7 THEN ¥=234 

1145 IF W=8 THEN ¥=226 
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1150 IF M=9 THEN ¥=195 

1155 NB=NB+1:Z$(lffi)=V:V=VAL(X2$) :I1=T+1 

1160 IF V,GI,0 MID V.LT. 65536 THEN 11 65 ELSE 1180 

1 1 65 ZA%=INT { V/256) : V=V- ( ZA%*256) 

1175 NB=NBf1:Z%(NB)=V:NB=NBf1:Z$(HB)=ZA56:GOTO 590 

1180 X1^=I2#jGC-SUB 430: IF ER| # HE«» " THEN 9000 

1185 V=i$(Y5):G0T0 1165 

vEE .'■. . -■ v =;;'■." ."■.-..■:. r:^ 

1195 W=VAL(X1$):IF W.LT.1 OR W.GT.9 THM 1225 

1200 IF W=1 THM V=56:GOTO 1230 

1205 IF 1-1=9 THEN V=24:GOTO 123^ 

1210 IF W=2 THEN V=48sGOTO 1230 

1215 IF ¥=6 THEN V=32:GGT0 123P 

1220 IF M=5 THEN V=40:GOTO 1230 

1225 ER$=" INVALID OPERAND" : GOTO 9000 

1230 W=VAL(X2$);IF W.LT.-128 OR W.GI.127 THEN 1225 

1235 IF H.LI.0 THEN W=256-ABS(W) 

1245 lffi»N&M:Z$(NB)=V:NB=NBf1:Z#(NB)=W:GGTO 590 

1250 IF QP$.NE.»LD» THEN 1425 ELSE Y1=T+1 

1255 IF I1|="©BC» AND X2|h"A" THEN NB=1 : Z%( 1 ) =2 : GOTO 590 

1260 IF Z1$="#DE" AND X2fp"A« THEN NB=1 :Zfo(l)=18:G0T0 590 

1265 ¥=VAL(X1#);IF V.GI.0 AND V.LT.65536 AND X2^«A« THEN NB=1 :Z?o(1)=50:GCT 

1165 
1270 LA$=X1$:GOSUB 500s IF V.GT.-1 THEN 1282 
1272 IF X2$ # NE # "A» THEN 9000 

1275 ER#=" "sGOSUB 430: IF ER$.NE»» " THEN 9000 
1 280 V=Ef (l5) : NB=1 : Zf ( 1 ) =50: GOTO 1 1 65 
1282 I2=V:I4=V1 

1285 IF X1$="A" AM) X2ip"@BG" THEN NB=1:Zf 3 (l)=10:GOIO 590 
1290 IF X1#=»A" AND X2#=»@DE , > THEN NB=1 :Z%(1)=26:G0T0 590 

1295 V=VAL(X2$):IF X1$="A» MD V.GT.255 AND V.LT.65536 THM NB=1 :Z|(1)=58:G 
OTO 1165 

1296 ¥=0:W=0 

1297 W=¥AL(X2$):IF W.GT.0 AND W.LT.256 THEN 1320 
1300 LA&=X2#:GOSUB 500? IF V.GT.-1 THM 1320 
1305 IF X1$.NE."A« THEN 9000 

1310 ER#=» «:GOSUB 430:IF ER|.NE.» » THEN 9000 

1315 V=i$(Y5):NB=1:Z$£(l)=58:GOTO 1165 

1320 Y3=V:ON Y2+1 GOTO 1325, 1335, 1345, 1355, 1365, 1375, 1385, 1415 

1325 IF W.GT.0 THM NB=2:Z|(l)=6;Zf o (2)=W:GOT0 590 

1330 NB=NB+1:ZS(NB)=64+Y3:GOTO 650 

1335 IF W.GT.0 THM NB=2:ZJ&(1)=U:Z5&(2)=W:G0T0 590 

1340 NB=NB+1:Z^(NB)=72+Y3:GOTO 650 

1345 IF W.GT.0 THM NB=2:Z$(1)=22:Z%(2)=W:G0T0 590 

1350 NB=NBi1:Z%(NB) =80+13: GOTO 650 

1355 IF W.GI.0 THEN NB=2:Z|(l)=30:Zf o (2)=M:GOTO 590 

1360 NBMB+1 : Z|(NB) =88+13: GOTO 650 

1365 IF W.GT.0 THM NB=2:Z%(1)=38:Z$(2)=W:G0T0 590 

1370 NB=NB+1jZ^(NB) =96+13: GOTO 650 

1375 IF W.GT.0 THM NB=2:Z$g(l)=46:Zf (2)=W:GOTO 590 

1380 NB=NB+1:Z|(NB)=104+I3:G0T0 650 

1385 IF I4.C-I.-1 THM 1405 

1390 IF W.GT.0 THEN HB=2:Zf (l)=54:Z%(2)=W:GGTG 590 

1395 IF 13=6 THM 1225 

1400 NB=1:Z%(1)=112+Y3:GOTO 650 

1405 IF W.GT.0 THM NB=4:ZS(2)=54:Zf (3)=Y4: Zfo(4)=W:GCTG 590 
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1410 NB=3:Z%(2)=112+Y3:Z%C3)=Y4:G0T0 590 

1415 IF W.GT.0 THEN HB=2:Z|(l)=62;Zf (2)=W;GGT0 590 

14-20 NB=NB+1:Z$(NB)=120fX3sGQIO 650 

1425 IF QP$.NE.»LDX« THEN 1655 

1 430 W= VAL ( X2f ) : V=VAL ( X1 $) 

1435 IF V.GT.0 AMD V.LI. 65536 THEN 144-0 ELSE 1475 

1440 IF X2£="BC« THEN NB=2;Z%(1)=237:Z%(2)=67:G0T0 1165 

1445 IF X2$=»DE" THEN NB=2iZS(l)=237:Zfo(2)=83:GOI0 1 1 65 

1450 IF X2f=»BI» THEN IB=1 :Z$£(1)=34:GCT0 1165 

1455 IF X2^=«IX« THEN NB=2:Z|(1)=221 :Z^(2)=34:G0I0 11 65 

1460 IF X2$="IX« THEN HB=2:Z$(1)=253:Z55(2)=34:GOTO 11 65 

1465 IF X2$=« SP" THEN NB=2;ZS(l)=237:Zf 3 (2)=115:G0I0 1 1 65 

1470 GOTO 1225 

1475 IF X1§.NE.»BC« THEN 1500 

1480 IF W.GI.0 MID W.LT.65536 THEN NB=2:Zf (l)=237:Zf (2)=75:V=W:GOTG 1165 

1485 IF LEFT$(X2$ S 1)="#» THEN V=VAL(MID$(X2$ S 2)) :NB=1 :Z%(1)=1:G0T0 1165 

1490 Y1=T+2:X1#=X2$sG0SUB 430: IF ERfc.NE." » THEN 9000 

1495 V=E^(Y5):NB=2:Z%(1)=237:Z%(2)=75:G0T0 1165 

1500 IF X1#.HE."DE" THEN 1525 

1505 IF W.GT.0 AND W.LT.65536 THEN NB=2:Zf ( l)=237:Zf (2)=91 :V=U:GOT0 11 65 

1510 IF LEFT§(X2$,1)=«#» THEN ¥=VAL(MID$(X2$,2)) :NB=1 :Zf (l)=17:GOTO 1165 

1515 Y1=T+2:X1$=X2$:G0SUB 430: IF ERj.ME." " THEN 9000 

1520 V=E|(Y5);NB^2jZ|(l)=237:Zfo(2)=91:GOTO 1165 

1525 IF X1$.ME."HL» THEN 1550 

1530 IF WoGT.0 AND W.LT. 65536 THEI-I IE=1 :Z$(1)=42:V=W:G0T0 1165 

1535 IF LEFT$(X2$,1)=«#» THEN V=VAL(MID$(X2$, 2) ) :NB=1 :Z%(1) =33: GOTO 1165 

1540 Y1=T+2:X*lfc=X2$:G0SUB 430: IF ER$.NE.« " THEN 9000 

1545 V=E r |(Y5):N&=1:Zf o (1)=42;G0T0 1165 

1550 IF X1|oIE # »IX« THEE 1575 

1555 IF W.GT.0 AND W.LT. 65536 THEN IB=2:Zf a (l)=221 :Z%(2)=42:V=W:G0T0 1165 

1560 IF LEFT$(X2§,1 )=«#« THEN ¥=¥AL(MID|(X2$ f 2) ) :NB=2:Z$(1)=221 :Z%(2)=33:G0 

TO 1165 
1565 Y1=I+2;X1^=X2$:G08UB 430: IF ER$.NB.» " THEN 9000 
1570 V=E&(Y5):NB=2:Z$(1)=221:Z%(2)=42:GOTO 11 65 
1575 IF X1$.ME."IY" THEN 1600 

1580 IF 1/.GT.0 AND W.LT. 65536 THEM IB=2:Z// (1)=253:Z%(2)=42:V=W:GOTO 1165 
1585 IF LEFT$(X2|,1)=«#« THEN N&=2:V=VAL(MID$(X2$,2) ) :Z%( 1)=253:Z?o( 2) =33: GO 

TO 1165 
1590 Y1=0H-2:X1$=X2$:GOSUB 430: IF ER$«NE.» " THEN 9000 
1595 V=E%(Y5):NB=2:Zfa(1)=253:Zf (2)=42:GOTO 11 65 
1600 IF X1i.NE.nSP" THEN 1640 
16^5 IF X2$=»HL» THEN MB=1 :Z%(1) =249: GOTO 590 
1610 IF X2^»IX" THEN NB=2:ZJ5(1)=221;Z$(2)=249:G0T0 590 
1615 IF X2$=»IY» THEN NB=2sZ|{l)=253:Z$(2)=249:GOTO 590 
1620IF W.GT.0 AND W.LT.65536 THEN MB=2;Zf o (l)=237:Z%(2)=123:¥=W:G0T0 1165 
1625 IF LEFT§(X2$,1)=«#« THEN NB=1 :V=¥AL(MID$(X2|,2) ) :Zf (l)=49:GOTO 1165 
1630 Y1=I+2jX1^=X2#;G0SUB 430: IF ERf.NE." « THEN 9000 
1635 V=Ef o (Y5):IB=2:Zfa(l)=237;Zf 3 (2)=123:G0T0 11 65 
1640 Y1=T+2;IF X2$=»HL» THEN I1=T+1 
1645 GOSUB 430: IF ER|.NE # " « THEN 9000 
1650 V=E5S(T5):GOTO 1440 
1655 IF OF$.NE."GPIR» THEN 1 665 
1660 NB=2;Zf 3 (l)=237:ZS(2)=177:G0T0 590 
1665 IF 0Pf.NE 8 "CPL" THEN 1675 
1670 HB=1:ZJ&(1)=47:G0T0 590 

1675 IF 0P#.NE«"DEC« THEN 1735 

1680 LA$=X1$:GOSUB 500! IF V=-1 THEN 9000 
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1685 IF ¥=0 THEM W=5 

1690 IF V=1 THEN W=13 

1695 IF V=2 THEN tf=21 

1700 IF V=3 THEN W=29 

1705 IF ¥=4 THEN W=37 

1710 IF V=5 THEM W=45 

1715 IF V=6 THEI W=53 

1720 IF V=7 THEN W=61 

1725 NB=NB+1:Zf (NB)=W;IF V1.GT.-1 THM NB=NB+1 :Zf (NB)=¥1 

1730 GOTO 590 

1735 IF OP#.NE.«DE0X» THEN 1770 

1740 IF X1$="SP M THM W=59:GOTO 1765 

1745 LA$=X1|:G0SUB 925s IF ¥=-1 THM 9000 

1750 IF V=193 THEN W=11 

1755 IF ¥=209 THEN W=27 

1760 IF ¥=225 THEN W=43 

1765 NB=NBH:Z%(NB)=W:GOTO 590 

1770 IF OP$,NE.«DJWZ n THEN 1785 

1775 W=¥AL(Xlf):IP W*LI*~128 OR W.GT.127 THM 1225 

1777 IF W.LT.0 THM W=256-ABS(W) 

1780 NB=2;Z$5(1)=16:Z%(2)=W:GOTO 590 

1785 IF OP$,NE.«EXS« THM 1810 

1790 IF X1$="HL" THEN NB=1:ZJ6(1) =227: GOTO 590 

1795 IF X1f=«IX" THM MB=2jZf o (l)=221jZ?o(2)=227:G0T0 590 

1800 IF X1$=«IY« THEN NB=2:Z$(1)=253:Z%(2) =227: GOTO 590 

1805 GOTO 1225 

1810 IF OPf.NB."EXD«« THM 1820 

1815 NB=1jZ$(1) =235: GOTO 590 

1820 IP OP$.NE,«EXA« THM 1830 

1825 NB=1:Z56(1)=8;GOTO 590 

1830 IF OP$ # NE."EXX M THM 184-0 

1835 NB=1:Z$(1)=217:G0I0 590 

1840 IF 0F$.NE.«BIT" THM 1860 

1845 W=¥AL(X1$):IP W.LT.1 OR W.GT.8 THM 1225 

1850 LA$=X2$:G0SUB 500: IF V.GT.-1 THM ¥=¥+64+(ABS(W-8)*8) 

1855 GOTO 575 

1860 IF OP# # NE."CALL" THM 1930 ELSE Y1=T+1 

1862 W=¥AL(X1#):IF W.LT.1 OR W.GT.9 THM 1225 

1865 ¥=¥AL(X2#):IF ¥ o GT.0 AND ¥.LT.65536 THM 1880 

1870 X1#=X2#:G0SUB 430*.IF ERf.NE." « THM 9000 

1875 ¥=E|(Y5) 

1880 IF W=1 THM 12=220 

1885 IF W=2 THEN 12=212 

1890 IF W=3 THM 12=252 

1895 IF W=4 THM 12=244 

1900 IF M=5 THEN 12=204 

1905 IF ¥=6 THM 12=196 

1910 IP !*=7 THEN 12=236 

1915 IF W=8 THM 12=228 

1920 IF ¥=9 THEN 12=205 

1925 NB=NBf1:Z%(NB)=Y2:G0T0 1165 

1930 IF OP$ e IE.»CCF" THM 1940 

1935 NB=1:Zfo(l)=63:GOTG 590 

1940 IF OP$.KE."CP« THM 1965 

1945 W=¥AL(X1$)iIP W.GT.0 MD W.LT.256 THM NE=2:Zf o (l)=254:Z%(2)=W:G0T0 590 

1950 LAiMC1$:G0SUB 500:IF ¥=~1 THM 9000 

1955 1IB=1JB+1:Z$(IB)=184+¥:IF V1.GT.-1 THEN NB=NB+1:Z$S(NB)=¥1 

1960 GOTO 590 
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1965 IF OPf„NE«"CFD" THEN 1975 

1970 NB=2:Z%(1)=237:Z#(2)=169:G0T0 590 

1975 IF OPf.NE„«CPDR" THEN 19S5 

1980 N&=2:Z%(1)=237:Z%(2)=185:G0T0 590 

1935 IF OP$.NE,«CPI» THEN 1995 

1990 NB=2:Z#(1)=237:Z%(2)=161:G0T0 590 

1995 IF OP$.NE.«ADG" THEN 2020 

2000 W=VAL(X1$):IF W.GT.0 MID tf.LT.256 THEN NB=2;ZS(1)=206:Z$S(2)=W:GOTO 590 

2005 LA$=X1$:G0SUB 500 J IF V=~1 THEN 9000 

2010 iffi=IB+1;Z$S(lB)=13&+¥:XP V1.GT.-1 THEN NB=NBH:ZJS(NB)=V1 

2015 GOTO 590 

2020 IF GPi,lE.«ADGX« THEN 2055 

2025 IF X1$=»B0« THEN W=74:GOT0 2050 

2030 IF X1#=»DE" THEN ¥=90; GOTO 2050 

2035 IF X1$="HL" THEN W=106:GOTO 2050 

204.0 IF X10=»SP« THEM W=122:G0T0 2050 

2045 GOTO 1225 

2050 NB=2:Z£(1)=237:Z#(2)=W:GCT0 590 

2055 IF OP|.NE,»ADD» THEN 2080 

2060 W=¥AL(X1$):IF W.GT.0 MID W.LT.256 TIEN NB=2:Z,f o (l)=198:Z$£(2)=W:G0T0 590 

2065 LA$=X1$:GOSUB 500: IF ¥=-1 THEH 9000 

2070 1H3=NB+1:Z|(NB)=12S+¥:IF V1.GT.-1 THEN NB=NB+1 :Z^(NB)=V1 

2075 GOTO 590 

2080 IF 0P$.NE„«ADDX n THEN 2135 

2085 IF X1$.NE,»HL» TICK 2115 

2087 NB=NB+1 

2090 IF X20="BG» THEN Z$(lB)=9:GOTO 590 

2095 IF X2CMDE" THEN Z#(NB)=25:G0T0 590 

2100 IF X2&="HL« THEN Z}5(NB)=41:GQTO 590 

2105 IF X2JH'SP" THEN Z$(NB)=57:GGTO 590 

2110 GOTO 1225 

2115 IP X1$.NE,»IX" THEN 2125 

2120 NB=NB+1:Z f |(HB) =221: GOTO 2087 

2125 IF X10.NE.«IY" THEN 1225 

2130 IIB=1-JBM:Z5&(NB) =253: GOTO 2087 

2135 IF QP$.NE # «AND» THEN ER$=»IN¥ALID OP CODE": GOTO 9000 

2140 W=VAL(X1$):IF W.GI.0 AND W.LT.256 THEN NB=2:Zf o (l)=230:Z$(2)=W:GOTO 590 

2145 LA$=X1$:GOSUB 500: IF V=*-1 THEN 9000 

2150 Iffi=NB+1:ZS(NB)=l60+V:IF V1.GT.-1 THEN NB=NB+1 :Z5&(HB)=V1 

2155 GOTO 590 

10 PRINT T9,*Iffi;Zjg(1) |Zf 8 (2) jZ$(3) }Z%U) ?" " ;K$(l) 
15 IF IA$="IES" THEN LPRIHT T9|PIBjZ%(1) ;Z%(2) ;Z%(3) ;Z%U) ;" "jKT)(l) 

*10 IF ER§»ME # » » TEEN PRINT ER$s PRINT: EC=EG+1 
9015 IF ER0.BE." " AND IAi*="IES n THEH LPRIHT HR$:LPRINT" " 
9020 NEXT I: IF P=0 THEN 9050 

9025 FOR 1=1 TO P:IF E$(l)=0 THEN 9030 "ELSE 9040 
9030 PRINT "LABEL UNKNOWH-" jj$(l) :EO=EC+1 
9035 IF YASh'TES" THEN LPRINT "LABEL UNKNOWN-" ; J#(l) 
9040 NEXT I: FOR V=0 TO Q:Z7=L$(V,2) :I#(V,2)=E5&(Z7) :NEXT V 
9050 IF EC.GT.0 THEN PRINT " ERROR3= n J EC : END 
9055 INPUT "READY CASSETTE TO WRITE MACHINE LANGUAGE" ; IB;| 
9060 PRINT #-1,T;Q:I=0 
9065 PRINT fM»»I%Hfo(l) f H|(l+l) »H$(l+2) ,H|(l+3) ,Hf (l+4) ,Hf (l+5) ,H?o(l+6) ,K% 

(I+7),H#(I+8),H5&(l+9) 
9070 1=1+10: IF I.LE.T THEN 9065 
9075 IF Q=0 THEN 9095 
9080 1=1 
9085 PRINT #-1,"Q»,L|(l f 1) f L|(l,2) ,L%(I+1,1) ,I#(I+1,2) ,Lf ( 1+2,1) ,I#(l+2,2) , 
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L%(I+3,1) ,Lf (l+3» 2) ,L%( 1+4,1) ,adu f 2) 

9090 1=1+5 : IF I.LE.Q THEN 9085 

9095 PRINT #-1,«E« f 0,0»0,0,0,0»0 f 0,0 ? 0i END 

The amount of string space you must clear for a compilation relates to the 
compiler tables* In creating a machine language program from your assembly 
language program,, the compiler must build and maintain several tables. The K$ 
table holds your assembly language programs* The J| and E% tables hold the tags 
and field names and their location addresses within your program. The E% table 
holds your machine language program. The L% table holds the location of an 
address in your program requiring relocation when your program is loaded for 
execution, and the relative address of the tag or field name at the location 
requiring the program's load address to be added to it and placed in your 
machine code s The Jf, E% and L% tables are maintained by two compiler subroutines 
starting at line 430 and at line 210, If no errors are found during the compila- 
tion, your machine language program will be written to tape in a format compat- 
able with the relocating loader program® During the compilation, the program 
will ask if a listing of the compilation will be required on the line printer. 
As you can see, each assembly language instruction is covered in a separate 
section of the compiler program. lou can study the machine language coding of 
any assembly language instruction be examining the appropriate section. In this 
version of the compiler, the DJNZ and JR instructions only allow an immediate 
value operand as the displacement value from -128 to +127 in jumping from these 
instructions. 

Here is the relocating loader program you will need to load and execute 
your machine language program* 

5 IIPUT "NUMBER OF RELOCATION ADDRESSES" ;K: IF K.LT.1 OR K.GT.32768 THEN 5 
7 DIM I#(K,2) 

10 INPUT "LOAD ADDRESS" ; A: IP A»LT # 16384 OR A.GT.65535 THEN 10 

20 INPUT "MAOHIIE LANGUAGE PROGRAM AREA SIZE" ;B: IF B.LT.0 OR K*2.GT.B OR B. 

GT,32?67 OR A+B # GT e 65535 THEM 20 
30 IIPUT "READY CASSETTE TO READ MACHINE LANGUAGE PROGRAM" ;C# 
40 IIPUT #-1,T,Q:I=^:AX=A:J=1:IF T.GT.B THEN PRINT "TEXT SIZE ERROR":END 
42 IP Q.GT.K THEN PRINT "RELOCATION TABLE SIZE ERROR": END 
50 INPUT #-1,C§,H1,H2,H3,ILi,H5,H6 f H7,H8,H9,HA 
55 IF Gf # NE„«I fl THEN PRINT "LOAD TEXT ERROR": END 
(4 POKE A, H1 i POKE A+1,H2:P0KE A+2 f H3:P0KE A+3,H4 
70 POKE A+4,H5:P0KE A+5»H6:POKE A+6 ? H7:P0KE A+7,H8 
80 POKE A+8,H9:F0KE A+9,HA: 1=1+10: IF I.LE.T THEN 50 
90 INPUT #~1 t 0# f H1 f H2 f H3,H4.,H5»H6,H7 f H8,H9»HA 
100 IP 0§="E« THEN 160 

110 IP C#.NE„ n Qw THEN PRINT "RELOCATION TABLE ERROR" :END 
120 Lf s (J J 1)=H1:LS(J t 2)=H2:Lf (J+1 l l)=!P3 
130 L|(J+1 f 2)=H4:L|(J+2 f l)=H5:LS(J+2,2)=H6 
140 Lfa(J+3 f l)=H7:Lfa(J+3»2)=H8:Lfo(J+4,l)=H9 
150 L|(J+4 f 2)=HA:J=J+5iIF J # LE.Q THEN 90 
160 IP J=1 THEN 210 

170 FOR 1=1 TO J J IF L$(I,1)=0 THEN 200 

180 Z|=A+Lf 3 (l,2) JH1=L|(I»1) :¥^=INT(Z%/256) :Z5&=Z%-(W%*256) 
190 POKE H1,Z5S:P0KE H1+1,W% 
200 NEXT I 

210 INPUT "SHOULD I EXECUTE lOUR PROGRAM" ;C$ 
220 IF 0$.NE.»IES« THEN END 
230 Z^=INT( A/256) : W#=A- ( Z%*256) 
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214 POKE 1 6526, W^s POKE l6527,Zf 
250 X=USR(0);END 

Note that the load address^ machine program size, and relocation address 
table size must match or exceed the capacities of those parameters as defined 
during the compilation of your program* The loader first processes the text 
records of machine code read from the tape and then reads all the address 
relocation records for further processing. Once the address relocation has been 
accomplished, the program may be executed* If the program is a subroutine to be 
called from one of your BASIC programs, the loader ends so that you may load and 
execute your BASIC program* 

I think you will agree that this system for using assembly language and 
machine language programs is both simple and beneficial. How all you need is 
some imagination and you can develops many interesting and fast running programs 
with features beyond BASIC ! s capabilities. 



CXBERMATE AND THE SO NOTEBOOK GOING OUT OF BUSINESS 

Due to overwhelming competition (trying to get a piece of the market) from 
the over 3000 small TRS-80 products firms, sources of cost effective advertising 
(since the CIE S-80 Bulletin went out of business in August), very poor circula- 
tion (presently about 350) and poor sales this past summer, we are forced to go 
out of business. We appreciate your interest in our company's products and 
publications and wish to leave you on a friendly basis. 

Due to our current poor financial condition, we are offering the following: 
for those of you with one year subscriptions, we are including a copy of our 41 
program listing package with this last issue of The 80 Notebook. Our package 
is an ideal substitute for the remainder of a one year subscription and it 
represents more material than was planned for the remainder of the first subscrip- 
tion year. If you already own one of our 41 program packages, keep this second 
copy and you may request any two programs on cassette from our product line of 41 
programs. 

Our two year subscribers can request 5 programs on cassette as a substitute 
to their second year of The 80 Notebook. 

Our three year subscribers can request 10 programs on cassette as a substi- 
tute to their second and third years of The 80 Notebook. 

Ue hope this will be satisfactory as we have done our best to be fair with 
the resources we have left, 

G00D-BXE AND GOOD LUCK! 



